home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 081-090 / amok85 / trechner / function.def next >
Text File  |  1993-11-04  |  899b  |  33 lines
  1. (*--------------------------------------------------------------------------
  2.   :Program.    function.def
  3.   :Contents.   Funktionsparser
  4.   :Author.     Frank Lömker
  5.   :Copyright.  FreeWare, siehe Dok-File für TRechner
  6.   :Language.   Modula-2
  7.   :Translator. M2Amiga V4.1d
  8.   :History.    V1.0, [Frank Lömker] 01-Mar-93
  9.   :Bugs.       keine bekannt
  10. --------------------------------------------------------------------------*)
  11.  
  12. DEFINITION MODULE function;
  13. (*$ DEFINE FFP:=TRUE DEFINE LONG:=FALSE *)
  14.  
  15. (*$ IF FFP *)
  16.   FROM SYSTEM IMPORT FFP;
  17. (*$ ENDIF *)
  18.  
  19. TYPE REAL= (*$ IF FFP *)     FFP;
  20.            (*$ ELSIF LONG *) LONGREAL;
  21.            (*$ ELSE *)       REAL;    (*$ ENDIF *)
  22. CONST e=2.7182818284;
  23.       pi=3.1415926536;
  24.       noFehler=0;
  25.       Fehler=1;
  26.       wrongSym=2;
  27.       Klammerauf=3;
  28.       Klammerzu=4;
  29.  
  30. PROCEDURE calcex (ex:ARRAY OF CHAR;x:REAL;VAR y:REAL;VAR error:SHORTINT);
  31.  
  32. END function.
  33.